home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
spiele
/
diamondcaves
/
gfx1.0
/
installgfx
next >
Wrap
Text File
|
1995-08-26
|
3KB
|
111 lines
; $VER InstallGfx 1.0 (04.06.95)
(set Update 0)
(set version 0)
(set DrawerName "DC:")
(complete 0)
(if (exists "DC:" (NOREQ))
(
(if (exists "DC:DiamondGfx" (NOREQ))
(
(set vernum (getversion "DC:DiamondGfx"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set version (+ (* 100 ver) rev))
(if (> version 099)
(
(message "You have already installed a version greater or equal 1.0!\n")
(exit (quiet))
)
)
(set Update
(askchoice
(prompt "Diamond Gfx V" ver "." rev " already installed.\nDo you want to update or install completely new?")
(choices "Install new" "Update")
(help "Sorry, no help-file.")
(default 1)
)
)
)
)
)
(
(message "Directory "DC:" not found!\nYou need an installed Version of Diamond Caves to run Diamond Gfx.")
(exit (quiet))
)
)
(if (= Update 1) ; only Update according to present Version
(
(complete 30)
(if (< version 100) ; this is only for versions <1.0
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "new")
(dest DrawerName)
(all)
(infos)
)
)
)
( ; new install: copy everything to "DrawerName" (should be "DC:" !)
(complete 10)
(set icons
(askchoice
(prompt "What kind of Icons do you want?\n")
(choices "normal" "MagicWB" "none")
(help "Soory, no help-file.")
(default 0)
)
)
(if (= icons 0)
(
(copyfiles
(prompt "Copying necessary Icons to \"" DrawerName "\".")
(help @copyfiles-help)
(source "Icons/normal")
(dest DrawerName)
(all)
(infos)
)
)
)
(if (= icons 1)
(
(copyfiles
(prompt "Copying necessary Icons to \"" DrawerName "\".")
(help @copyfiles-help)
(source "Icons/MagicWB")
(dest DrawerName)
(all)
(infos)
)
)
)
(complete 30)
(copyfiles
(prompt "Copying necessary files to \"" DrawerName "\".")
(help @copyfiles-help)
(source "new")
(dest DrawerName)
(all)
(infos)
)
)
)
(complete 100)
(message "\nDiamondGfx V1.0 installation/update complete.\n\nHave fun!")
(exit (quiet))